object ParamsForm: TParamsForm Left = 295 Top = 185 ActiveControl = ExitBtn BorderStyle = bsDialog Caption = 'E:\!master\cooking\Setup.inf' ClientHeight = 372 ClientWidth = 428 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = 10 Font.Name = 'MS Sans Serif' Font.Style = [] Scaled = False ShowHint = True PixelsPerInch = 96 TextHeight = 13 object PageControl: TPageControl Left = 0 Top = 0 Width = 428 Height = 337 ActivePage = Registry Align = alTop TabOrder = 0 object MainWindow: TTabSheet Caption = 'General' object Label1: TLabel Left = 10 Top = 178 Width = 150 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Left-top text:' end object Label5: TLabel Left = 10 Top = 16 Width = 150 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Product Name:' end object Label6: TLabel Left = 10 Top = 64 Width = 150 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Version:' end object Label7: TLabel Left = 10 Top = 88 Width = 150 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Firm Name:' end object Label3: TLabel Left = 10 Top = 116 Width = 150 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Top Color:' end object Label4: TLabel Left = 10 Top = 145 Width = 150 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Bottom Color:' end object PaintBox: TPaintBox Left = 320 Top = 112 Width = 81 Height = 53 OnPaint = PaintBoxPaint end object Label12: TLabel Left = 104 Top = 212 Width = 54 Height = 13 Caption = 'Before Run' end object Label13: TLabel Left = 114 Top = 240 Width = 45 Height = 13 Caption = 'After Run' end object Label24: TLabel Left = 10 Top = 40 Width = 150 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Internal Name:' end object SetupText: TEdit Left = 180 Top = 174 Width = 221 Height = 21 TabOrder = 6 Text = '20th Century Newsmakers Setup' end object ProductName: TEdit Left = 180 Top = 12 Width = 221 Height = 21 TabOrder = 0 Text = '20th Century Newsmakers' end object ProductVersion: TEdit Left = 180 Top = 60 Width = 221 Height = 21 TabOrder = 2 Text = '2.2' end object FirmName: TEdit Left = 180 Top = 84 Width = 221 Height = 21 TabOrder = 3 Text = 'Scarlet' end object TopColor: TBitBtn Left = 180 Top = 112 Width = 133 Height = 25 Hint = '2637264' Caption = 'TopColor' Font.Charset = DEFAULT_CHARSET Font.Color = 2637264 Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = False TabOrder = 4 OnClick = ColorBtnClick end object BottomColor: TBitBtn Left = 180 Top = 140 Width = 133 Height = 25 Hint = '16777215' Caption = 'BottomColor' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = False TabOrder = 5 OnClick = ColorBtnClick end object BeforeRun: TEdit Left = 180 Top = 208 Width = 221 Height = 21 TabOrder = 7 end object AfterRun: TEdit Left = 180 Top = 236 Width = 220 Height = 21 TabOrder = 8 end object InternalName: TEdit Left = 180 Top = 36 Width = 221 Height = 21 TabOrder = 1 Text = 'persons' end object AutoUninstall: TCheckBox Left = 180 Top = 264 Width = 221 Height = 17 Caption = 'Auto Uninstall in '#39'Add/Remove program'#39 State = cbChecked TabOrder = 9 end end object TextInfo: TTabSheet Caption = 'Texts' object Label18: TLabel Left = 72 Top = 4 Width = 87 Height = 13 Caption = 'Windows captions' end object Label2: TLabel Left = 4 Top = 4 Width = 36 Height = 13 Caption = 'Buttons' end object Label11: TLabel Left = 4 Top = 244 Width = 68 Height = 13 Caption = 'Uninstall string' end object Label17: TLabel Left = 256 Top = 4 Width = 27 Height = 13 Caption = 'Errors' end object Label19: TLabel Left = 168 Top = 244 Width = 78 Height = 13 Caption = 'Uninstall caption' end object NamePrev: TEdit Left = 4 Top = 20 Width = 53 Height = 21 TabOrder = 0 Text = '< Back' end object NameNext: TEdit Left = 4 Top = 44 Width = 53 Height = 21 TabOrder = 1 Text = 'Next >' end object NameCancel: TEdit Left = 4 Top = 68 Width = 53 Height = 21 TabOrder = 2 Text = 'Cancel' end object NameYes: TEdit Left = 4 Top = 92 Width = 53 Height = 21 TabOrder = 3 Text = 'Yes' end object NameNo: TEdit Left = 4 Top = 116 Width = 53 Height = 21 TabOrder = 4 Text = 'No' end object NameBrowse: TEdit Left = 4 Top = 140 Width = 53 Height = 21 TabOrder = 5 Text = 'Browse...' end object NameFinish: TEdit Left = 4 Top = 164 Width = 53 Height = 21 TabOrder = 6 Text = 'Finish' end object LicenseCaption: TEdit Left = 72 Top = 44 Width = 170 Height = 21 TabOrder = 9 Text = 'Software License Agreement' end object UserCaption: TEdit Left = 72 Top = 68 Width = 170 Height = 21 TabOrder = 10 Text = 'User Information' end object DirectoryCaption: TEdit Left = 72 Top = 92 Width = 170 Height = 21 TabOrder = 11 Text = 'Choose Destination Location' end object CopyingCaption: TEdit Left = 72 Top = 140 Width = 170 Height = 21 TabOrder = 13 Text = 'Copying...' end object FinishCaption: TEdit Left = 72 Top = 164 Width = 170 Height = 21 TabOrder = 14 Text = 'Setup Complete' end object GroupCaption: TEdit Left = 72 Top = 116 Width = 170 Height = 21 TabOrder = 12 Text = 'Select program folder' end object Memo10: TMemo Left = 3 Top = 260 Width = 413 Height = 22 Lines.Strings = ( 'Uninstall the 20th Century Newsmakers from your hard disk?') TabOrder = 27 WordWrap = False end object ErrorFile: TEdit Left = 251 Top = 20 Width = 165 Height = 21 TabOrder = 17 Text = 'File Copy Error: %s' end object ErrorShortcut: TEdit Left = 251 Top = 44 Width = 165 Height = 21 TabOrder = 18 Text = 'Shortcut creating error: %s' end object ErrorMissing: TEdit Left = 251 Top = 68 Width = 165 Height = 21 TabOrder = 19 Text = 'Source file missing: %s' end object ErrorAbortQuestion: TEdit Left = 251 Top = 92 Width = 165 Height = 21 TabOrder = 20 Text = 'Abort Setup ?' end object ErrorNotCompleted: TEdit Left = 251 Top = 116 Width = 165 Height = 21 TabOrder = 21 Text = 'Setup not completed' end object ErrorAborted: TEdit Left = 251 Top = 140 Width = 165 Height = 21 TabOrder = 22 Text = 'Setup aborted' end object ErrorDiskSpace: TEdit Left = 251 Top = 164 Width = 165 Height = 21 TabOrder = 23 Text = 'Disk space required: %d kb. Please choose another disk' end object NameRegister: TEdit Left = 4 Top = 188 Width = 53 Height = 21 TabOrder = 7 Text = 'Register' end object URL: TEdit Left = 72 Top = 188 Width = 170 Height = 21 Hint = 'Clear this field if you don'#39't want to register' TabOrder = 15 end object ErrorInternetBrowser: TEdit Left = 251 Top = 188 Width = 165 Height = 21 TabOrder = 24 Text = 'Error opening Internet browser' end object ErrorKeyword: TEdit Left = 251 Top = 212 Width = 165 Height = 21 TabOrder = 25 Text = 'Wrong keyword' end object CaptionUninstall: TEdit Left = 251 Top = 236 Width = 165 Height = 21 TabOrder = 26 Text = 'Uninstall' end object WelcomeCaption: TEdit Left = 72 Top = 20 Width = 170 Height = 21 TabOrder = 8 Text = 'Welcome!' end object CustomCaption: TEdit Left = 72 Top = 212 Width = 170 Height = 21 TabOrder = 16 Text = 'Custom setup' end end object Files: TTabSheet Caption = 'Files and icons' object Label8: TLabel Left = 4 Top = 8 Width = 72 Height = 13 Caption = 'File list to copy:' end object Label9: TLabel Left = 4 Top = 156 Width = 63 Height = 13 Caption = 'Group Name:' end object Label10: TLabel Left = 4 Top = 177 Width = 44 Height = 13 Caption = 'Icons list:' end object GroupName: TEdit Left = 128 Top = 152 Width = 289 Height = 21 TabOrder = 1 Text = 'Scarlet CD ROM' end object ListFiles: TMemo Left = 4 Top = 24 Width = 409 Height = 117 Lines.Strings = ( '%CDPATH%\persons.ini=%WINDOWS%\persons.ini') TabOrder = 0 WordWrap = False end object ListIcons: TMemo Left = 4 Top = 196 Width = 413 Height = 81 Lines.Strings = ( 'Newsmakers=%CDPATH%\persons.exe' 'Newsmakers Uninstall=%WINDOWS%\maUninst.exe,,%InternalName%' 'Newsmakers Read Me=%CDPATH%\readme.txt') TabOrder = 2 WordWrap = False end end object Registry: TTabSheet Caption = 'Registry' object Label20: TLabel Left = 2 Top = 1 Width = 329 Height = 13 Caption = '[HKEY_CURRENT_USER\Software\%FirmName%\%InternalName%]' end object Label21: TLabel Left = 2 Top = 16 Width = 102 Height = 13 Caption = '"Version"=%Version%' end object Label22: TLabel Left = 2 Top = 32 Width = 113 Height = 13 Caption = '"CDPath"=%CDPATH%' end object Label23: TLabel Left = 2 Top = 48 Width = 115 Height = 13 Caption = '"HDPath"=%HDPATH%' end object RegList: TMemo Left = 1 Top = 64 Width = 417 Height = 217 Lines.Strings = ( '[HKEY_CURRENT_USER\Software\Scarlet\persons]' '"Autorun"="..\persons"' '"Uninstall"="%WINDOWS%\mauninst.exe,,%InternalName%"') ScrollBars = ssVertical TabOrder = 0 WordWrap = False end object Import: TButton Left = 336 Top = 34 Width = 81 Height = 25 Caption = 'Import *.reg' TabOrder = 1 OnClick = ImportClick end end object WelcomeDialog: TTabSheet Caption = 'Welcome' object Image1: TImage Left = 8 Top = 4 Width = 120 Height = 260 end object Memo1: TMemo Left = 140 Top = 4 Width = 277 Height = 260 Color = clBtnFace Lines.Strings = ( ' Welcome to the %ProductName% Setup program. This ' ' program will install %ProductName% on your computer.' '' ' It is strongly recommended that you close all Windows ' ' programs before running this Setup program.' '' ' Click Cancel to quit Setup and then close all programs ' ' you have running. Click Next to continue with Setup ' ' program.' '' ' WARNING: This program is protected by copyright law ' ' and international treaties.' '' ' Unauthorized reproduction or distribution of this program, ' ' or any portion of it, may result in severe civil and criminal ' ' penalties, and will be procecuted to the maximum extent ' ' possible under law.') TabOrder = 0 end end object LicenseDialog: TTabSheet Caption = 'License' object Image2: TImage Left = 12 Top = 8 Width = 32 Height = 32 AutoSize = True end object Memo2: TMemo Left = 60 Top = 8 Width = 349 Height = 33 Color = clBtnFace Lines.Strings = ( 'Please read the following Licence Agreement. Press the PageDown ' + 'key ' 'to see the rest of the agreement.') TabOrder = 0 end object Memo4: TMemo Left = 12 Top = 236 Width = 397 Height = 41 Color = clBtnFace Lines.Strings = ( 'Do you accept all the terms of the preceding License Agreement? ' + 'If you choose ' 'No, Setup will Close. To install %ProductName%, you must accept ' + 'this agreement.') TabOrder = 2 end object License: TMemo Left = 12 Top = 44 Width = 397 Height = 189 Lines.Strings = ( '' 'Scarlet Software Licence Agreement' '' 'This Agreement will govern your use of the' ' Scarlet software products contained in ' ' this package. Please read the following terms ' ' carefully before using the product.' '' 'Grant of licence. Scarlet Software., Thomas House,' ' Hampshire International Business Park, ' ' Crockford Lane, Chineham, Basingstoke, Hampshire, ' ' UK RG24 8WH (called "Scarlet" in this ' ' Agreement) hereby grants you, and you accept, ' ' a limited licence subject to the terms and ' ' conditions contained herein to use the' ' software recorded on the enclosed CD-ROM ' ' (called "the Software" in this Agreement). ' ' You may only use this Software on a single ' ' computer, on its temporary replacement, or on ' ' a subsequent computer. If you wish to use the ' ' Software on more than one computer, you must' ' purchase an additional copy of the Software. ' ' The Software is "in use" on a computer when it ' ' is resident in memory (i.e., RAM) or installed ' ' on the hard disk (executable and other files)' ' or other storage device. You may not either ' ' temporarily or permanently transfer or ' ' sub-licence your rights to use the Software ' ' under this Agreement without the prior written ' ' consent ofScarlet.' '' 'Use. You acknowledge that the rights to the ' ' Software and the User Manuals and other related ' ' materials are the sole and exclusive property of ' 'Scarlet or Scarlet'#39's licensors. You may not ' ' alter, merge, modify or ' ' adapt this Software in any way including ' ' disassembling or decompiling. By accepting this ' ' Agreement, you do not become the owner of the ' ' Software, but you do have the licence to use ' ' the Software in accordance with the Agreement. ' ' You agree to use your best efforts and to' ' take all reasonable steps to protect the ' ' Software from unauthorised use, illegal ' ' reproduction or illicit distribution. You may ' ' not loan, rent, lease or licence this Software ' ' or any copy.' '' 'Copyright. All intellectual property rights in ' ' the Software and user documentation are owned ' ' by Scarlet or its suppliers and are ' ' protected by United Kingdom copyright laws, ' ' other applicable copyright laws and international' ' treaty provisions. Scarlet retains all rights ' ' not expressly granted.' '' 'Limited Warranty. Scarlet warrants that the ' ' Software will substantially conform to the ' ' applicable user documentation. Furthermore ' ' Scarlet warrants for a period of ninety (90)' ' days from the effective date of this Agreement ' ' that, under normal use, the material of the CD-ROM ' ' and the user manual(s) will not prove defective; ' ' and that the user manual(s) are substantially ' ' complete and contain all of the information which ' ' Scarlet considers necessary for the use of ' ' the Software. If during the ninety-day period, a' ' defect in the Software should appear, you may ' ' return the Software to Scarlet for replacement ' ' without charge. Your sole right with respect to a ' ' defect in the Software is replacement of the ' ' Software. Scarlet does not warrant, that the ' ' contents of this package meets your expectations ' ' and that the Software runs properly under all ' ' circumstances.' '' 'Except for the limited warranty provided in this ' ' paragraph, there are no warranties, conditions, or ' ' representations either express or implied by ' ' statute, common law or otherwise, and all such ' ' warranties, conditions and representations are ' ' expressly disclaimed.' '' 'Limitation Of Liability. You agree that regardless ' ' of the form of any claim you may have, Scarlet'#39's ' ' liability for any damages to you or to any other ' ' party shall not exceed the amount paid by you for ' ' the Software. Scarlet will not be responsible ' ' for any direct, indirect, special, incidental, ' ' cover or consequential damages, such as, but not ' ' limited to, loss of profits resulting from the use ' ' of the Software or arising out of any breach of ' ' the warranty, even if Scarlet has been advised ' ' of the possibility of such damage.' '' 'Termination of the Agreement. If any terms and ' ' conditions of the Agreement are broken, Scarlet ' ' has the right immediately to terminate in writing ' ' the Agreement and demand that you return the ' ' Software to Scarlet. At that time, you must' ' also certify in writing that you have not retained ' ' any copies of the Software.' '' 'Governing Law. This Agreement is to be governed ' ' by and interpreted in accordance with the Laws ' ' of England. Any terms or conditions of this ' ' Agreement found to be unenforcable will be ' ' deleted, but will not affect the remaining terms ' ' and conditions of this Agreement.' '' 'PLEASE NOTE: In order to receive technical support ' ' and notification of product upgrading and ' ' enhancements, please complete and return the ' ' accompanying registration card.' '') ScrollBars = ssVertical TabOrder = 1 end end object UserDialog: TTabSheet Caption = 'User information' object Image3: TImage Left = 8 Top = 4 Width = 120 Height = 260 AutoSize = True end object Memo5: TMemo Left = 140 Top = 4 Width = 269 Height = 61 Color = clBtnFace Lines.Strings = ( 'Please type your name (required) and name of the ' 'company you work for (optional).') TabOrder = 0 end object UserNameLabel: TEdit Left = 140 Top = 88 Width = 121 Height = 21 Color = clBtnFace TabOrder = 1 Text = 'Your name:' end object SerialNumberLabel: TEdit Left = 140 Top = 152 Width = 121 Height = 21 Color = clBtnFace TabOrder = 2 Text = 'Keyword:' end object Memo6: TMemo Left = 140 Top = 188 Width = 269 Height = 77 Color = clBtnFace Lines.Strings = ( ' ') TabOrder = 6 end object OrganizationLabel: TEdit Left = 140 Top = 120 Width = 121 Height = 21 Color = clBtnFace TabOrder = 3 Text = 'Organization:' end object KeywordNeeded: TCheckBox Left = 264 Top = 160 Width = 121 Height = 17 Caption = 'Required' TabOrder = 5 OnClick = KeywordNeededClick end object Protection: TMemo Left = 264 Top = 68 Width = 145 Height = 89 Hint = '#Page,#Line,#Word,Keyword' TabOrder = 4 end object SetupDat: TCheckBox Left = 140 Top = 268 Width = 97 Height = 17 Caption = 'SetupDat' TabOrder = 7 end end object CustomDialog: TTabSheet Caption = 'Custom' object Image8: TImage Left = 8 Top = 4 Width = 120 Height = 260 AutoSize = True end object Label14: TLabel Left = 145 Top = 179 Width = 180 Height = 13 Caption = 'Radio Buttons (if flag text is not empty)' end object CustomMemo: TMemo Left = 140 Top = 4 Width = 277 Height = 61 Color = clBtnFace Lines.Strings = ( 'Please select components you wish to install') TabOrder = 0 end object FlagText1: TEdit Left = 144 Top = 195 Width = 201 Height = 21 TabOrder = 1 end object FlagText2: TEdit Left = 144 Top = 219 Width = 201 Height = 21 TabOrder = 2 end object FlagText3: TEdit Left = 144 Top = 243 Width = 201 Height = 21 TabOrder = 3 end object Flag1: TEdit Left = 349 Top = 195 Width = 67 Height = 21 TabOrder = 4 Text = 'Flag1' end object Flag2: TEdit Left = 349 Top = 219 Width = 67 Height = 21 TabOrder = 5 Text = 'Flag2' end object Flag3: TEdit Left = 349 Top = 243 Width = 67 Height = 21 TabOrder = 6 Text = 'Flag3' end end object ChooseDir: TTabSheet Caption = 'Destination' object Image4: TImage Left = 8 Top = 4 Width = 120 Height = 260 AutoSize = True end object Bevel2: TBevel Left = 140 Top = 192 Width = 273 Height = 71 end object Memo7: TMemo Left = 140 Top = 4 Width = 269 Height = 161 Color = clBtnFace Lines.Strings = ( 'Setup will install %ProductName% in the following ' 'directory.' '' 'To install to this directory, click Next.' '' 'To install to a different directory, click Browse and ' 'select another directory.' '' 'You can choose not to install %ProductName%, by ' 'clicking Cancel to exit Setup.') TabOrder = 0 end object InstallDirLabel: TEdit Left = 152 Top = 184 Width = 133 Height = 21 Color = clBtnFace TabOrder = 1 Text = 'Destination Directory' end object DefaultDir: TEdit Left = 152 Top = 208 Width = 253 Height = 21 Color = clBtnFace TabOrder = 2 Text = 'C:\Scarlet\persons' end object Button1: TButton Left = 330 Top = 234 Width = 75 Height = 25 Caption = 'Browse' TabOrder = 3 end end object SelectFolder: TTabSheet Caption = 'Folder' object Image7: TImage Left = 8 Top = 4 Width = 120 Height = 260 AutoSize = True end object Memo9: TMemo Left = 136 Top = 4 Width = 277 Height = 93 Lines.Strings = ( 'Setup will add program icons to the Program folder listed ' 'below. You may type a new folder name, or select one ' 'from the existing Folders list. Click Next to continue.') TabOrder = 0 end end object CopyingDialog: TTabSheet Caption = 'Process' object Image5: TImage Left = 8 Top = 4 Width = 120 Height = 260 AutoSize = True end object Process1: TEdit Left = 156 Top = 120 Width = 257 Height = 21 TabOrder = 1 Text = 'Copying files' end object Process2: TEdit Left = 156 Top = 148 Width = 257 Height = 21 TabOrder = 2 Text = 'Creating program group' end object Process3: TEdit Left = 156 Top = 176 Width = 257 Height = 21 TabOrder = 3 Text = 'Creating icons' end object Process4: TEdit Left = 156 Top = 204 Width = 257 Height = 21 TabOrder = 4 Text = 'Updating system information' end object Memo3: TMemo Left = 136 Top = 4 Width = 277 Height = 93 Lines.Strings = ( 'Please wait while Setup copying files. If you click Cancel, ' 'install will canceled immediatly.') TabOrder = 0 end end object ExitDialog: TTabSheet Caption = 'Exit' object Image6: TImage Left = 8 Top = 4 Width = 120 Height = 260 AutoSize = True end object Memo8: TMemo Left = 136 Top = 4 Width = 277 Height = 261 Lines.Strings = ( 'Setup has finished copying files to your computer. ' '' 'Click '#39'Finish'#39' to exit.') TabOrder = 0 end object Restart: TCheckBox Left = 136 Top = 293 Width = 97 Height = 17 Caption = 'Restart required' TabOrder = 2 end object RestartText: TEdit Left = 137 Top = 270 Width = 276 Height = 21 TabOrder = 1 Text = 'Restart now' end end end object ExitBtn: TButton Left = 352 Top = 339 Width = 75 Height = 25 Caption = 'Exit' ModalResult = 2 TabOrder = 3 OnClick = ExitBtnClick end object LoadBtn: TBitBtn Left = 0 Top = 340 Width = 121 Height = 25 Caption = 'Load setup.inf' TabOrder = 1 OnClick = LoadBtnClick end object SaveBtn: TBitBtn Left = 128 Top = 340 Width = 109 Height = 25 Caption = 'Save setup.inf' TabOrder = 2 OnClick = SaveBtnClick end object OpenDialog: TOpenDialog DefaultExt = 'inf' Filter = 'Setup inf|setup*.inf|All files|*.*' Options = [] Title = 'Open .inf from' Left = 48 Top = 304 end object ColorDialog: TColorDialog Ctl3D = True CustomColors.Strings = ( 'ColorA=FFFFFFFF' 'ColorB=FFFFFFFF' 'ColorC=FFFFFFFF' 'ColorD=FFFFFFFF' 'ColorE=FFFFFFFF' 'ColorF=FFFFFFFF' 'ColorG=FFFFFFFF' 'ColorH=FFFFFFFF' 'ColorI=FFFFFFFF' 'ColorJ=FFFFFFFF' 'ColorK=FFFFFFFF' 'ColorL=FFFFFFFF' 'ColorM=FFFFFFFF' 'ColorN=FFFFFFFF' 'ColorO=FFFFFFFF' 'ColorP=FFFFFFFF') Options = [cdFullOpen, cdAnyColor] Left = 80 Top = 304 end object OpenReg: TOpenDialog DefaultExt = '*.reg' Filter = '*.reg|*.reg' Options = [ofHideReadOnly, ofNoChangeDir, ofFileMustExist] Title = 'Registry file import' Left = 16 Top = 304 end object SaveDialog: TSaveDialog DefaultExt = 'inf' FileName = 'E:\!master\newsmakers\Setup.inf' Filter = 'Setup inf file|Setup*.inf' Options = [] Title = 'Save setup.inf to' Left = 112 Top = 304 end end